####################################
####PRIMEIRO RASCUNHO DA FUNO#####
####################################


les<- function(x,carac, atr, K, r, destaque)
  tam <- length(atr)                          # Guardando a quantidade de atributos que o usurio ir anlisar
  atr.df <- data.frame(rep(NA,length(x[,1]))) # Criando um novo data.frame apenas com os atributos que irei usar
  for (i in 1:tam)                            # Criando um ciclo para tranferir os atributos do d.f x para o d.f q irei usar
    {
    atr.df[i]<- x[atr[i]]                     #Tranferindo de x para o data.frame atr.df
    }  
  atr.df                                    ##Essa linha  apenas para facilitar a visualizao durante a correo APAGAR
##Agora vou analisar qual ser o tamanho da janela grfica que ser necessria para plotar as relaes entre os atributos
  if(tam <= 6)                                #Testando se a qnt de atributos  menor ou igual a 6
  {
    par(mfrow = c(2,3))                       #Janela grfica de 2x3 para caber no mximo a relao entre os 6 atr
    X(11)                                     #Criando a janela
  }
  if( 6 < tam <= 9)                           #Testando se a qnt de atributos est entre 6 e 9
  {
    par(mfrow = c(3,3))                       #Janela grfica de 3x3 para caber no mximo a relao entre os 9 atr
    X(11)                                     #Criando a janela
  }
  if(tam > 9)                                #Testando se a qnt de atributos  menor ou igual a 9
  {
    par(mfrow = c(4,4))                       #Janela grfica de 4x4 para caber no mximo a relao entre os 16 atr
    X(11)                                     #Criando a janela
  }
  if(K != NULL)                               #COMO FAO UM TESTE LGICO PARA VER SE UM OBJETO EXITE OU NO# Vendo se o usurio usou o arg K para indicar alguma estratgia
  {
  indice= data.frame(rep(NA,length(atr.df[1]))#criando o data.frame que ir armazenar os valores dos indices
  for (i in 1:tam)                            #iniciando o ciclo de anlises de correlaes
    {
    mod <- lm(K~atr.df[i])                    #modelo que relaciona os atributos com o parmetro K
    teste <- anova(mod)                       #teste do modelo
                                              #FAZER PLOT
    if(teste$`Pr(>F)`[1]<0.05)                #avaliando se a relao est dentro do intervalo de significncia
      {
      if(mod$coefficients[2]>0)               #avaliando se a relao  positiva
        {
        indice$atr(i)= (atr.df[i]-min(atr.df[i]))/(max(atr.df[i])-min(atr.df[i])) #COMO USAR O N DA REP. DO CICLO NO NOME DE UM OBJ?#atribuindo valores de 0 a 1 para as estratgias K 
        }
      else               #Outra situao de atributos correlacioandos negativamente
        {
          indice$atr(i)= Mod((atr.df[i]-min(atr.df[i]))/(max(atr.df[i])-min(atr.df[i]))-1) #Atribuindo valores de 1 a 0 para as estrategia r
        }
      }
     }
  }
  if (r != NULL)             #IDEM LINHA 34
  {
    #REPETE TUDO MAIS OU MENOS PARECIDO QUE A PARTE DO DO K INVERTENDO S ALGUMAS COISINHAS
  }
  else
  {
    return("Qual  que  seu lazarento, quer usar a funo e nem falar qual  o atributo relacioando  a estratgia K ou r?")
  }
  indice$media<- apply(indice, 1, mean)    #Resumindo o valor dos ndice em um nico s atravs da media
  Criar janela grfica com esse ndice     # PLOT NO GRFICO, a fazer